home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Rexx / IndentBlk.bed < prev    next >
Text File  |  1998-06-24  |  532b  |  39 lines
  1. /*
  2. ** $VER: IndentBlk.bed 1.01 (01.04.96)
  3. **
  4. ** Indent the selected block
  5. **
  6. ** Written by Marco Negri
  7. */
  8.  
  9. OPTIONS RESULTS
  10.  
  11. SetInputLock ON
  12. SetDisplayLock ON
  13.  
  14. GetBlkDims
  15. PARSE VAR RESULT mode . start . end
  16.  
  17. GetCursorPos
  18. PARSE VAR RESULT y x .
  19.  
  20. IF mode = OFF THEN DO
  21.     SetStatusBar "Error: No block selected!"
  22. END; ELSE DO
  23.     SetStatusBar "Indenting the block..."
  24.     Move LINE start
  25.  
  26.     RecordMacro QUIET
  27.     ShiftRight TABS
  28.     MoveDown
  29.     EndMacro
  30.  
  31.     IF end-start > 0 THEN
  32.         PlayMacro end-start
  33.  
  34.     Move y x
  35. END
  36.  
  37. SetDisplayLock OFF
  38. SetInputLock OFF
  39.